Public Class frmchonsuatchieu

    Private Sub frmchonsuatchieu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As DataTable = frmmain.cn.Get_table("select * from SUATCHIEU")
        DataGridView1.DataSource = dt
    End Sub
End Class